home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tegl6b.zip
/
INTROPAK.EXE
/
lha
/
ANIMTST1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-08-12
|
2KB
|
84 lines
{*********************************************************}
{ TEGL Windows ToolKit II }
{ Copyright (C) 1990, TEGL Systems Corporation }
{ All Rights Reserved. }
{*********************************************************}
Uses
errorlog,
tgraph,
videochk,
virtmem,
teglintr,
animate,
TEGLmain,
TEGLMenu,
TEGLUnit,
fastgrph;
const
{$I animtst1.inc}
var Oriental : animateobject;
OrientalFS : imagestkptr;
{$F+}
function OrientalBow(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
{$F-}
begin
hideimage(Frame);
hidemouse;
with Oriental do
begin
ResetFrame(1);
Animateinit;
origin(frame^.x,frame^.y);
animate(8);
end;
showmouse;
showimage(Frame,frame^.x,frame^.y);
OrientalBow := 1;
end;
{$F+}
function ExitOption(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
{$F-}
begin
abortexit('IconEdit Test Program - Test IconEdit PutPict.');
end;
begin
SetVideoChoices(TG_VGA,false);
EasyTEGL;
with Oriental do
begin
init;
addframe(@imageChina,0,0,55,37,350,1200,55,black);
addframe(@imageChina,0,0,55,37,150,1200,56,black);
addframe(@imageChina2,0,0,55,37,75,1100,55,black);
addframe(@imageChina2,0,0,55,37,75,1100,56,black);
addframe(@imageChina3,0,0,55,37,150,900,55,black);
addframe(@imageChina3,0,0,55,37,150,900,56,black);
addframe(@imageChina3,0,0,55,37,600,1100,56,black);
addframe(@imageChina2,0,0,55,37,150,1100,0,black);
addframe(@imageChina,0,0,55,37,500,1100,55,black);
end;
pushimage(15,getmaxy-65,15+37,getmaxy-65+55);
putpict(15,getmaxy-65,@imageChina,black);
DefineMouseClickArea(stackptr,0,0,37,55,true,Orientalbow,MSClick);
OrientalFS := stackptr;
setframemobility(stackptr,false);
TEGLSupervisor;
end.